home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / c64 / demos / generic / Demos.lzh / +more sprites (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-12-17  |  511 b   |  12 lines
  1. 10 ifg=0theng=1:load"64s.d",8,1
  2. 15 poke53264,0:poke53276,0:poke53277,0:poke53271,0:poke53275,0:poke53265,27
  3. 20 fora=0to14step2:poke53248+a,59+a*13.5:next:fora=0to7:poke53287+a,1
  4. 22 poke2040+a,13:next
  5. 25 fora=0to7:forb=0to7:poke680+a*8+b,54+b*23:next:next
  6. 27 fora=832toa+62:pokea,255:next
  7. 30 sys49152:poke53281,0:poke53280,10:print"[153][147][142]":poke53269,255
  8. 40 fora=0to7:readc(a):next:data2,8,10,7,13,3,14,4:cn=0:poke198,0
  9. 50 geta$:ifa$=" "then100
  10. 60 fora=7to0step-1:poke53287+a,c(cn):cn=(cn+1)and7:next:cn=(cn+1)and7:goto50
  11. 100 fora=0to7:poke53287+a,1:next:poke198,0:poke53264,1:poke53248,19
  12.